1 GOSUB60100
2 PRINT"[147]           [211][200][201][214][197][210][160][205][197][160][212][201][205][194][197][210][211]":PRINT"             BY [196]ANA [195]LAPP"
3 C=115:DIMWD$(C),WT(C),LI(85),FI(85),TI(85),DI$(85),DM(27,6)
4 TC=0:LC=1:IC=0:FC=0:AC=0:TV=0:LP=118:LR=1::NN=90:DC=.5:VC=0
5 OPEN15,8,15:OPEN2,8,2,"O:SMTFILE,P,R":GET#2,A$,A$
10 FORR=1TOC:INPUT#2,WD$(R),WT(R):S=WT(R):IFS>90THEN20
15 INPUT#2,DI$(S),LI(S),TI(S),FI(S)
20 NEXT
25 FORR=1TO27:FORS=1TO6:INPUT#2,DM(R,S):NEXTS,R:CLOSE2:CLOSE15
45 PRINT"[196]O YOU WANT INSTRUCTIONS? ([217]/[206]) ";
50 GETZ$:IFZ$=""THEN50
51 IFZ$="N"ORZ$="[206]"THENPRINT"[206]O":GOTO100
52 IFZ$<>"Y"ANDZ$<>"[217]"THEN50
53 PRINT"[217]ES"
54 A$="[201]N THIS ALL-TEXT GAME YOU WILL READ ABOUT YOUR SURROUNDINGS, AND WILL B"
55 A$=A$+"E PROMPTED TO INTERACT WITH IT BY ENTERING COMMANDS ON THE KEYBOARD."
56 B$=" [195]OMMANDS MUST START WITH A VERB, AND MAY BE FOLLOWED BY A NOUN, OR A CO"
57 C$="MBINATION OF NOUNS AND PREPOSITIONS. [198]OR A LIST OF VERBS TYPE 'LIST' AN"
58 D$="D HIT 'RETURN' AT THE PROMPT '?'. [217]OU WILL HAVE TO MOVE TO DIFFERENT LO"
59 D$=D$+"CATIONS BY TYPING 'WALK (DIRECTION)', LIKE 'WALK NORTH'. '[213]P' AND 'D"
60 E$="OWN' ARE IN ADDITION TO THE FOUR COMPASS DIRECTIONS. [205]AKING A MAP IS RE"
61 E$=E$+"COMMENDED.":PRINT"[147]":GOSUB10000
75 PRINT"            [208][210][197][211][211][160][193][206][217][160][203][197][217]"
76 GETZ$:IFZ$=""GOTO76
100 PRINT"[147]":A$="[215]HILE SAILING YOU NOTICE A FIGURE, HOBBLING ON A WOODEN LEG, "
101 B$="WAVING FOR YOU TO LAND ON THE BEACH TO THE SOUTH. [217]OU STEER SOUTH, BEA"
103 C$="CH YOUR SAILBOAT, AND DISEMBARK, ONLY TO FIND THAT THE FIGURE HAS VANI"
105 D$="SHED, WITHOUT A TRACE. [160] ":GOTO5995
110 A$="  [217]OU RAISE SAIL AND DEPART WITH YOUR TREASURE. [193]S THE VOLCANIC ISLAND"
112 B$=" ERUPTS, AN APE FRANTICALLY SWIMS PAST YOU AND OUT OF SIGHT. [212]HE VOLCA"
115 C$="NO EXPLODES AGAIN AND A FIGURE WITH A WOODEN LEG APPEARS BEFORE YOU. [200]"
117 D$="E PEERS AT YOU THROUGH THICK GLASSES, AND SPEAKS WITHOUT A SOUND 'GOOD"
120 E$=" WORK MATEY', THEN VANISHES. [217]OU GLANCE AT YOUR TREASURE AND "
125 E$=E$+"STEER FOR HOME.":GOSUB10000:PRINT"           [208][204][193][217] [193][199][193][201][206]? (Y/N)"
131 GETZ$:IFZ$="Y"THEN5025
132 IFZ$<>"N"THEN131
133 GOTO5030
200 A$="[217]OU DON'T SEE A "+Y$+" HERE.":GOTO295
202 A$="[217]OU DON'T SEE THAT HERE.":GOTO295
205 A$="[201] DON'T KNOW THE WORD '"+Y$+"'.":GOTO295
210 A$="[208]LEASE LIMIT YOUR COMMANDS TO FOUR WORDS.":GOTO295
215 A$="[208]LEASE BEGIN WITH A VERB.":GOTO295
216 A$="[201] DON'T UNDERSTAND YOU.":GOTO295
220 A$="[215]HAT DO YOU WANT TO DO THAT TO?":GOTO295
225 A$="[201] NEED TO KNOW MORE HERE, SO PLEASE USE THE FOLLOWING SYNTAX: "
226 B$="'VERB NOUN PREPOSITION NOUN' LIKE 'PUT COIN IN SLOT'"
227 C$=", OR 'UNLOCK DOOR WITH KEY'.":GOTO295
230 A$="[217]OU DON'T HAVE THAT.":GOTO295
235 A$="[208]LEASE BE MORE SPECIFIC.":GOTO295
295 TC=TC-1:GOSUB10000
300 Z$="":WC=1:Y$="":PRINT
305 GOSUB60500:IFZ$="INV"THENZ$=Z$+"EN"
306 IFZ$="NE"THENZ$="NORTHEAST"
307 IFZ$="NW"THENZ$="NORTHWEST"
308 IFZ$="SW"THENZ$="SOUTHWEST"
309 IFZ$="SE"THENZ$="SOUTHEAST"
310 L=LEN(Z$):IFL=0THEN305
320 TC=TC+1
340 FORR=1TOL:A$=MID$(Z$,R,1)
350 IFA$=" "THEN370
355 Y$=Y$+A$:IFR<>LTHEN570
370 IFY$=""THEN570
375 IFY$="THE"ANDWC=1THEN215
376 IFY$="THE"THEN565
380 IFLEN(Y$)>37THEN216
400 FORS=1TOC:IFLEFT$(Y$,5)=WD$(S)THEN410
405 NEXTS:GOTO205
410 V=WT(S):IFV>79THEN510
470 T=LI(V):IFT=LPORT=1THEN510
480 IFT>99THEN200
490 U=FI(T):IFT<>33ANDU<>2ANDU<>6ANDU<>14THEN200
505 IFLI(T)<>LPANDLI(T)<>1THEN200
510 ONWCGOTO520,530,540,550,210
520 C1=V:GOTO560
530 C2=V:GOTO560
540 C3=V:GOTO560
550 C4=V
560 WC=WC+1
565 Y$=""
570 NEXTR:WC=WC-1:A$=""
575 IFWC=1THENIFC1>93ANDC1<100THENWC=2:C2=C1:C1=102
600 IFC1<100ORC1>199THEN215
610 ONWCGOTO620,630,640,650
620 IFC1=103ORC1=123ORC1=130ORC1=131ORC1=132ORC1=140ORC1=141THEN700
625 GOTO220
630 IFC2>99THEN216
631 IFC2>NNANDC1<>102ANDC1<>123THEN216
635 IFC1>108ANDC1<118THEN225
637 GOTO700
640 IFC2<199ORC3>99THEN216
645 IFC1>107ANDC1<120THEN225
646 IFC1=120ORC1=123ORC1=128THEN700
647 GOTO216
650 IFC2>NNORC3<199ORC4>NNTHEN216
655 IFC1<108ORC1>120THEN216
660 IFC2=C4THEN216
665 IFC1=109THEN700
670 IFC1<>108ANDC1<>111ANDC1<>112THEN680
675 IFLI(C2)<>1THEN230
676 IFC2<3THEN216
677 GOTO700
680 IFLI(C4)<>1THEN230
685 IFC3<>205THEN216
700 ONC1-99GOTO750,800,850,950,1000,1050,1200,1200,1250,1350,1400,1450,1550,1600
705 ONC1-113GOTO1600,1650,,,1800,1850,1900,1950,1950,2050,2250,2300
710 ONC1-125GOTO2350,2400,2450,2500,2550,2600,2650
715 ONC1-139GOTO5000,5000
749 PRINT"UNDEFINED":GOTO300
750 IFC2<>21THEN216
755 GOTO1850
800 IFC2=80ANDLP=103ORLP=102THEN820
805 IFC2=80ANDLP=103ORLP=102THEN820
810 IFC2=84ANDLP=111ORLP=115THEN820
815 GOTO5903
820 IFLP=102ORLP=115THENC2=99:GOTO850
825 C2=98
850 IFC2<94THEN216
857 S=DM(LP-99,C2-93):IFS>99THEN900
860 ONSGOTO863,865
862 A$="[217]OU CAN'T GO THAT WAY.":GOTO5995
863 A$="[217]OU GO WADING, FIND NOTHING OF INTEREST THEN RETURN.":GOTO5995
865 A$="[193] MOUNTAIN BLOCKS YOUR WAY.":GOTO5995
900 IFLP=100ANDFC>0THENFC=0:PRINT"[212]HE FLARE GOES OUT."
905 IFS=116ANDFI(4)=0ANDLI(4)=116THENPRINT"*[211][206][193][208]* [217]OU SCAMPER BACK UP.":GOTO7000
910 IFLP=114ANDS=112THENA$="[215]ITH LITTLE TO GRIP YOU FALL TEN FEET."
930 LP=S:LR=1
935 LI(27)=114:IFLP=107THENLI(27)=LP
946 GOTO5995
950 IFWC>1THEN216
955 IFIC=0THENA$="[217]OU CARRY NOTHING.":GOTO5995
957 PRINT"[217]OU HOLD:":GOSUB10100
958 GOTO7000
1000 IFC2=23THENA$="[217]OU QUICKLY DEVELOP A HEADACHE AND REMOVE THEM.":GOTO5995
1007 IFC2=8THENA$="[217]OU ALREADY HAVE TWO GOOD ONES.":GOTO5995
1015 GOTO5900
1050 S=LI(C2):IFS=33THENA$="[213]NTIE IT FIRST.":GOTO5995
1055 IFLP=100ANDFC=0THEN5935
1065 IFS=1THENA$="[217]OU ALREADY HAVE IT.":GOTO5995
1067 S=TI(C2):IFC2=20THEN1075
1070 IFS<>1ANDS<>3THEN5900
1075 IFIC>5THENA$="[217]OU CAN'T CARRY ANYMORE.":GOTO5995
1076 IFC2=24ORC2=28THENA$="[201]T CRUMBLES.":GOTO1100
1077 IFC2=7ANDLI(5)=LPTHEN5955
1078 IFC2=25THEN235
1079 IFC2=33THENA$="[206]OT WITHOUT A SHARP KNIFE.":GOTO5995
1080 IFC2=27ANDLP=114THENA$="[212]HAT IS WHAT SUPPORTS YOU.":GOTO5995
1081 IFC2=27THENA$="[217]OU ARE NOT STRONG ENOUGH.":GOTO5995
1082 IFC2=20ANDS=2THENS=1:B$="[212]HE VOLCANO EXPLODES VIOLENTLY.":VC=TC
1083 IC=IC+1:LI(C2)=1:A$="[196]ONE. ":IFS=1THENIFC2<50ORC2>53THENTI(C2)=3
1085 GOTO5995
1100 IFTI(43)=1THENB$=" [217]OU NOTICE A KEY WITHIN."
1140 GOTO5995
1200 IFTV=0THEN1245
1205 IFC2=33THENC2=TV
1210 IFLI(C2)<>33THEN1245
1215 TV=0:LI(C2)=LP:GOTO5905
1245 A$="[201]T IS NOT TIED.":GOTO5995
1250 ONWCGOTO,1253,,1450
1253 IFC2<3THEN216
1255 IFLI(C2)<>1THEN5933
1265 IC=IC-1:LI(C2)=LP
1267 IFC2>49ANDC2<54THENA$="[201]T SPLATS AND DRIES UP.":LI(C2)=101:GOTO5995
1270 GOTO5905
1350 IFC3<>204THEN216
1353 IFC4=33THENC4=C2:C2=33
1354 IFC2<>33THEN216
1355 IFC4=1THENA$="[217]OU SHIVER AT THE THOUGHT OF BEING TIED UP.":GOTO5995
1356 IFC4<>7ANDC4<>26ANDC4<>45THEN5907
1357 IFC4=7ANDLI(5)=LPTHEN5955
1360 IFTV>0THENA$="[201]T IS ALREADY TIED TO SOMETHING.":GOTO5995
1365 TV=C4:A$="[212]IED. "
1366 IFLI(C4)=1THENB$="[217]OU RELEASE THE "+DI$(C4)+".":IC=IC-1
1367 LI(C4)=33:GOTO5995
1400 IFC3<>205THEN216
1405 C1=C2:C2=C4:C4=C1:C3=203
1450 IFC3=203ORC3=207THEN1500
1457 IFC3<>202THEN216
1460 IFC4=16ANDLI(6)=105THENC4=6
1465 S=FI(C4):IFS<>2ANDS<>6ANDS<>14THEN5900
1470 IFC4=8ANDC2<>22THEN1480
1473 IFC4=6ANDC2<>44THEN1480
1475 IC=IC-1:LI(C2)=C4:IFC4=9THENLI(C2)=112
1477 IFC4=10THENLI(C2)=116:A$="[196]ONE. ":GOTO1485
1478 IFC2>49ANDC2<54THENA$="[196]ONE.":GOTO1490
1479 GOTO5905
1480 PRINT"[201]T WON'T FIT.":GOTO7000
1485 IFC2<50ORC2>53THENB$="[212]HE "+DI$(4)+" SNIFFS AT IT.":GOTO5995
1486 IFFI(4)=9THEN1490
1487 B$="[212]HE CAIMAN GULPS IT DOWN."
1489 IFC2=51THENFI(4)=9:C$=" [201]T PROMPTLY TIPS OVER UNCONSCIOUS."
1490 LI(C2)=101:GOTO5995
1500 IFC4<>9THEN5900
1503 IFC2<>39ANDC2<>45THEN5900
1505 IFC2=39THENA$="[212]HE HOLE IS TOO BIG, AND THE BLANKET TOO LIMP.":GOTO5995
1510 A$="[196]ONE. [212]HE APE'S HEAD TILTS AS IT LOOKS DOWN AT YOUR WORK. [200]E BOUNCES "
1511 B$="OFF THE CHEST, ONTO THE PLANK, AND STRAIGHT THROUGH THE FLOOR, AS THE"
1512 C$=" ROTTEN WOOD SPLINTERS TO PIECES.":LI(5)=112:LI(45)=0:IC=IC-1
1515 AC=TC:GOTO5995
1550 IFC3<>204THEN216
1553 IFC4=4THENA$="[201]T IS ASLEEP!":GOTO5995
1555 IFC4<>5THEN216
1560 IFC2<50ORC2>53THENA$="[212]HE APE SNIFFS IT, AND TURNS AWAY.":GOTO5995
1565 A$="[199]ULP. ":IFC2=51THENB$="*[194][197][204][195][200]*"
1570 IC=IC-1:LI(C2)=101:GOTO5995
1600 IFC2<>7ORC4<>43THEN5900
1605 IFLI(5)=LPTHEN5955
1610 S=FI(7):IFS=14THEN1630
1615 IFS=270THEN1640
1620 IFC1=113THEN5940
1625 FI(7)=270:GOTO5905
1630 IFC1=114THEN5940
1635 GOTO5900
1640 IFC1=114THEN5940
1645 FI(7)=526:GOTO5905
1650 IFC2=44ANDC4=21THEN1850
1653 IFC2<>44ORC4<>23THEN5900
1655 IFLP=100THEN5935
1660 A$="[198]OCUSING THE SUNS RAYS FROM THE LENS TO THE FUSE, YOU MANAGE TO LIGHT"
1661 B$=" THE DYNAMITE. [201]T WILL EXPLODE IN ONE TURN.":DC=TC:GOTO5995
1800 IFWC=2THEN5930
1815 A$="[201]T ISN'T SHARP ENOUGH.":GOTO5995
1850 S=LI(21):T=FI(21):IFWC=4THENIFC4<>21THEN216
1853 IFS<>1THEN5930
1855 IFT=0THENA$="*[195][204][201][195][203]*":GOTO5995
1857 IFWC=4ORC2<>21THEN1875
1860 IFLP<>100THENB$="[212]HE FLARE SHOOTS OUT OF SIGHT.":GOTO1895
1867 B$="[212]HE FLARE BOUNCES OFF THE CEILING AND LANDS GLOWING ON THE FLOOR."
1870 FC=TC:LR=1:GOTO1895
1875 IFC2=44THENDC=TC-1:GOTO6000
1877 A$="[212]HE FLARE GLANCES OFF ITS TARGET AND DISAPPEARS."
1895 FI(21)=0:GOTO5995
1900 S=LI(40):ONWCGOTO,1910,1905
1902 IFC4<>40THEN5900
1903 IFS<>1THEN5933
1904 GOTO1910
1905 IFC2<>202THEN216
1907 C2=C3
1910 IFS<>1THEN5930
1913 IFC2=82THENA$="[217]OU RANDOMLY DIG A HOLE IN THE EARTH.":GOTO5995
1915 IFC2<>11THEN216
1920 IFFI(11)=0THENFI(11)=2:TI(11)=2:B$="[217]OU HAVE OPENED A GRAVE.":GOTO1930
1925 IFLI(28)=0THENB$="[217]OU UNCOVER SOME BONES.":LI(28)=11:GOTO1930
1927 IFLI(20)=0THENB$="[217]OU UNCOVER A TREASURE.":LI(20)=11
1930 A$="[196]UG. ":GOTO5995
1950 IFC2=26THEN5905
1951 S=FI(C2):IFS=4ORS=6ORS=14THEN1965
1955 IFS=260ORS=262ORS=270THEN1975
1957 IFS=524ORS=526THEN1985
1960 GOTO5900
1965 IFC1=121THEN5940
1970 FI(C2)=S+256:GOTO5905
1975 IFC1=122THEN5940
1980 FI(C2)=S-256:GOTO5905
1985 IFC1=121THENA$="[201]T'S LOCKED.":GOTO5995
1990 GOTO5940
2050 IFWC=1THEN2249
2051 IFLP=100ANDFC=0THEN5935
2052 IFWC=2THEN2070
2055 IFC2=201THENC2=C3:GOTO2070
2060 IFC2>203ORC3>NNTHEN216
2065 IFC2=203THEN2245
2067 C2=C3:IFC2<>9THEN2200
2070 ONC2GOTO2245,,,2080,2085,2200,2090,2095,2100,2200,2103,2245,2249,2105,2110
2071 ONC2-15GOTO2249,2250,2250,,2125,2130,2250,2140,2145,2150,2155,2160,2170
2075 IF(C2=82ORC2=99)ANDLP=112ANDTI(23)=1THEN2140
2077 IFC2=80ANDVC>0THEN2165
2079 GOTO2245
2080 A$="[201]T SEEMS TO BE SLEEPING.":GOTO2247
2085 IFLP=112THENA$="[201]T LOOKS CONFUSED.":GOTO2247
2086 A$="[201]T CLUMSILY JUMPS AND SWINGS AROUND THE PLACE, JUST MISSING A DROP TH"
2087 B$="ROUGH THE RATHER LARGE HOLE IN THE FLOOR.":GOTO2247
2090 A$="[205]ARKED '[197][216][208][204][207][211][201][214][197][211]', IT HAS A LOCK ON IT AND IS NOW ":B$="CLOSED."
2092 IFFI(7)<15THENB$="OPENED. ":GOTO2200
2093 GOTO2247
2095 A$="[215]ELL WORN, IT HAS A COMPARTMENT IN IT. ":IFFI(8)=6THEN2200
2096 GOTO2247
2100 A$="[217]OU SEE THE GROUND.":GOTO2247
2103 IFFI(11)=0THEN2245
2104 GOTO2200
2105 A$="[193] SHELL OF A BOAT, ON ONE OF THE BOARDS THAT REMAIN IS WRITTEN '[211][197][193] "
2106 B$="[199]'.":GOTO2247
2110 A$="[201]T'S USELESS, ONLY A FEW ROTTEN UPRIGHTS REMAIN STANDING.":GOTO2247
2125 A$="[201]TS WORTH IS OUTWEIGHED ONLY BY ITS BEAUTY.":GOTO2247
2130 A$="[201]T'S ":B$="LOADED.":IFFI(21)=0THENB$="EMPTY."
2131 GOTO2247
2140 A$="[201]T WAS A PAIR OF THICK GLASSES, NOW ONE LENS REMAINS.":GOTO2247
2145 IFTI(43)=3THEN2245
2146 A$="[193] KEY STICKS OUT OF IT.":GOTO2247
2150 A$="[200]ERE ARE RIPE CHERRIES, APPLES, GRAPES, AND BANANAS.":GOTO2247
2155 A$="[207]N THE COVER OF THE THICK BOOK IS '[204]OG OF THE [211]EA [199]HOST'.":GOTO2247
2160 IFLP=107THEN2105
2163 A$="[207]N ONE BOARD IS PRINTED '[200][207][211][212]'.":GOTO2247
2165 A$="[211]MOKE ROILS FROM THE EASTERN VOLCANO.":GOTO2247
2170 A$="[212]HEY LOOK REPTILIAN.":GOTO2247
2200 S=FI(C2):IFS<>2ANDS<>6ANDS<>8ANDS<>14THEN5900
2210 C$="[201]N THE "+DI$(C2)+" IS:"
2212 IFC2=10THENC2=116
2215 FORR=4TO79:IFLI(R)=C2THENIFTI(R)=2ORTI(R)=3THEN2220
2217 NEXT:D$=" NOTHING.":GOTO2247
2220 FORR=4TO79:IFLI(R)=C2THENIFTI(R)=2ORTI(R)=3THEND$=D$+" A "+DI$(R)+","
2223 NEXT:GOTO2247
2245 A$="[217]OU SEE NOTHING OF INTEREST."
2247 GOTO5995
2249 LR=1:GOTO6000
2250 IFC2<>17ANDC2<>18ANDC2<>22ANDC2<>26THEN216
2253 IFLP=100ANDFC=0THEN5935
2255 ONC2-16GOTO2260,2263,,,,2265,,,,2270
2260 A$="[206]EAR SMOOTH, YOU CAN MAKE OUT [210][201][208] WITH A SKULL AND CROSSBONES UNDER"
2261 B$=" IT.":GOTO5995
2263 A$="[207]BSCENITIES ABOUT A THIEVING 'APE'?":GOTO5995
2265 A$="[215]RITTEN ACROSS ITS TOP IS '[211]HIVER [205]E [212]IMBERS'. [201]T DEPICTS AN ISLAND "
2266 B$="WITH ONE VOLCANO. [207]THER FEATURES INCLUDE A DOCK ON THE SOUTHWEST SHOR"
2267 C$="E, AND A SPRING ON THE EASTERN SHORE. [193]N [216] LIES SOUTHEAST OF THE VOLC"
2268 D$="ANO, AND WEST OF THE SPRING.":GOTO5995
2270 A$="[201]T BEGINS IN THE EARLY PART OF THIS CENTURY, DOCUMENTING A PIRATE SHI"
2272 B$="P'S ACTIVITIES. [207]NE ENTRY TELLS OF A LOOTED TREASURE: 'ITS WORTH IS "
2274 C$="OUTWEIGHED ONLY BY ITS BEAUTY', THAT WAS BURIED ON THE ISLAND [211]HIVER"
2276 D$=" [205]E [212]IMBERS. [205]ANY YEARS PASS BEFORE RECENT ENTRIES ABOUT A BAD-LUCK E"
2278 E$="XPEDITION TO RETRIEVE THE TREASURE, THE LAST BEING FIVE DAYS AGO."
2279 GOTO5995
2300 IFC2=25THEN235
2302 IFC2<50ORC2>53THEN5900
2303 IFLI(C2)<>1THEN5933
2305 A$="[197]ATEN. ":LI(C2)=101:IC=IC-1:IFC2<>51THEN5995
2310 B$="[217]OU PROMPTLY FALL OVER UNCONSCIOUS... [217]OU COME AROUND SOME TIME LATER."
2315 GOTO5995
2350 IFC2<>83THEN5900
2355 IFLP=107ORLP>116THENA$="[211]ALTY.":GOTO5995
2360 IFLP=104OR(LP=105ANDLI(30))=LPTHENA$="[212]ASTES LIKE A SWAMP.":GOTO5995
2365 GOTO202
2400 GOTO5925
2450 IFWC=3THENIFC2<>203ANDC2<>206THEN216
2452 IFWC=3ANDC3<>33THEN216
2455 IFWC=3THENC2=C3
2457 IFC2=33THEN2467
2459 IFC2>NNTHEN216
2460 IFLI(C2)<>1THEN5933
2463 A$="*[211][215][207][207][211][200]*":GOTO5995
2467 IFIC>1ORLI(7)=1ORLI(45)=1THEN5951
2470 LR=1:IFLP=114THENLP=115:GOTO2480
2475 LP=114
2480 LI(33)=LP:A$="[217]OU CLUTCH THE VINE AND JUMP. [217]OU SWING ACROSS A PIT THEN L"
2481 B$="AND.":GOTO5995
2500 IFC2<>32THEN216
2505 IFLI(20)=1ORLI(20)=126THEN110
2510 PRINT"[212]HAT WOULD MEAN LEAVING THE GAME.":GOTO5005
2550 IFWC>1THEN216
2555 A$="[217]OU DO NOTHING FOR ONE TURN.":GOTO5995
2600 IFWC>1THEN216
2605 A$="[193] PARTIAL LIST OF VERBS [201] RECOGNIZE: DIG, DROP, EAT, (I)NVENTORY, LIG"
2607 B$="HT, LOCK, (L)OOK, OPEN, SHOOT, SWING, TAKE, TIE, WAIT, WALK, AND TO "
2610 C$="EXIT A GAME USE RESTART OR (Q)UIT. [211]OME PREPOSITIONS: AT, IN, WITH."
2615 GOTO5995
2650 IFWC=2ANDC2<>1THEN216
2655 A$="[211]TEADY THERE MATEY.":GOTO5995
5000 IFWC>1THEN216
5005 TC=TC-1:PRINT"[193]RE YOU SURE? ([217]/[206]) ";
5010 GETS$:IFS$="N"ORS$="[206]"THENPRINT"NO":GOTO300
5015 IFS$<>"Y"ANDS$<>"[217]"THEN5010
5020 PRINT"YES":IFC1=129ORC1=140THEN5030
5025 GOTO4
5030 GOTO60000
5900 PRINT"[217]OU CAN'T.":GOTO7000
5903 PRINT"[217]OU CAN'T HERE.":GOTO7000
5905 PRINT"[196]ONE.":GOTO7000
5907 PRINT"[201]T WOULD SLIP THROUGH THE KNOT.":GOTO7000
5910 PRINT"[206]OT LIKELY.":GOTO7000
5915 PRINT"[206]ICE TRY.":GOTO7000
5925 PRINT"[212]HIS HAS NO EFFECT.":GOTO7000
5930 A$="[217]OU DON'T HAVE ANYTHING TO DO THAT WITH.":GOTO5995
5933 PRINT"[217]OU DON'T HAVE THAT ITEM.":GOTO7000
5935 PRINT"[201]T IS TOO DARK TO SEE.":GOTO7000
5940 PRINT"[201]T ALREADY IS.":GOTO7000
5945 PRINT"[212]AKE IT EASY.":GOTO7000
5950 PRINT"[217]OUR CARRYING TOO MUCH.":GOTO6000
5951 PRINT"[217]OU ARE JUGGLING TOO MUCH.":GOTO6000
5955 A$="[217]OU ARE KNOCKED AWAY BY THE PLAYFUL APE.":GOTO5995
5995 GOSUB10000
6000 IFLR=0THEN7000
6005 LR=0:ONLP-99GOTO6020,6040,6050,6060,6070,6080,6090,6110,6120,6130,6140
6007 ONLP-110GOTO6150,6160,6170,6180,6190,6200,6210,6220,6230,6240,6250,6260
6010 ONLP-122GOTO6270,6280,6290,6300
6015 A$="[213]NMAPPED TERITORY.":GOTO6950
6020 A$="[196]ARK TUNNEL. [217]OU CAN SEE LIGHT TO THE NORTH AND SOUTH."
6023 IFFC=0THEN6950
6024 B$=" [211]MOKEY LIGHT FROM A FLARE REVEALS A CAMPSITE, AND SOME GRAFFITO."
6026 GOTO6950
6040 A$="[198]RUIT [194]OWL. [193]SSORTED FRUITS FILL THE GREENERY OF THIS ANCIENT VOLCANO"
6041 B$=". [199]RAPEVINES CHOKE THE EXIT TO THE NORTH."
6042 IFTI(26)=1THENC$=" [193] BOOK LIES UNDER A TREE."
6045 GOTO6950
6050 A$="[205]OUNTAINSIDE. [193]N OPENING LEADS NORTH, AND A PATH LEADS DOWN.":GOTO6950
6060 A$="[208]ATH. [217]OU CAN FOLLOW IT SOUTH, OR UP THE MOUNTAINSIDE.":GOTO6950
6070 A$="[211]WAMP. ":B$="[217]OU TRUDGE THROUGH MUCKY WATER."
6071 C$=" [205]OUNTAINS ARE NORTHEAST AND NORTHWEST OF HERE."
6074 IFLI(30)=0ORDC=.5ORTC-DC<7THEN6950
6075 B$="[205]AKE THAT A '[198]ORMER [211]WAMP'. [193] CARVED STONE HAS BEEN REVEALED.":GOTO6950
6080 IFLI(30)=LPTHENA$="[211]PRING. [201]T FLOWS EAST.":GOTO6950
6081 A$="[205]OUND. [197]NDING IN A CLUMP IS A FLOW OF LAVA FROM THE NORTH. "
6083 IFLI(6)=LPTHENB$="[193] DARK CRACK DIVIDES IT."
6084 IFLI(44)=6THENC$=" [193] "+DI$(44)+" IS WEDGED IN THE CRACK."
6089 GOTO6950
6090 A$="[204]AVA [198]LOW. [193] STEEP FLOW OF HARDENED LAVA FROM THE NORTH.":GOTO6950
6110 A$="[201]NLET. [200]ALF ON LAND IS THE REMAINS OF A BOAT, AND HALF IN THE SEA IS"
6111 B$=" A ROTTING DOCK.":IFTI(45)=1THENC$=" [193] PLANK STICKS OUT OF THE WATER."
6113 GOTO6950
6120 A$="[205]IDDLE [199]ROUND. [196]OWN TO THE SOUTH IS THE OCEAN, AND TO THE NORTH IS SW"
6122 B$="AMP.":GOTO6950
6130 A$="[211]OGGY [205]EADOW. [197]AST AND SOUTH OF HERE IS OCEAN.":GOTO6950
6140 A$="[211]HRUBBY. [214]EGETATION TAKES HOLD, SPREADING INLAND.":GOTO6950
6150 A$="[202]UNGLE. [217]OU STOOP TO AVOID KNOCKING YOUR HEAD AGAINST THE LIMBS."
6155 GOTO6950
6160 A$="[202]UNGLE. [212]ALL TREES GIVE SHADE. [200]IGH UP IS A WOODEN PLATFORM."
6162 IFTI(23)=1THENB$=" [211]OMETHING CRUNCHES UNDER YOUR FEET."
6163 IFLI(5)=LPTHENC$=" [193]N APE STANDS HERE SCRATCHING ITS HEAD."
6165 GOTO6950
6170 A$="[202]UNGLE [195]LEARING. [193]T YOUR FEET IS A LARGE PIT.":GOTO6950
6180 A$="[212]REEHOUSE. [193] WRICKETY SHELTER OF BOARDS WEDGED IN THE LIMBS, IS "
6181 B$="UNFINISHED, HAVING A GAPING HOLE IN THE FLOOR.":IFLI(5)<>114THEN6950
6182 C$=" [193]N APE IS HERE, AND SEEMS TO WELCOME THE COMPANY.":GOTO6950
6190 A$="[213]P A TREE.":GOTO6950
6200 A$="[200]OLE. [205]UD AND STINK! [198]ECES LINES THE CROC'S HOME.":GOTO6950
6210 A$="[206]ORTH [194]EACH. [202]UNGLE TO THE SOUTH.":GOTO6950
6220 A$="[206]ORTH [211]HORE. [212]HE SHORE PROCEEDS EAST AND WEST. [199]OING SOUTH TAKES YOU"
6224 B$=" INTO JUNGLE, WHICH IS FLANKED EAST AND SOUTH BY TWO FLAT-TOPPED MOUN"
6225 C$="TAINS. [217]OUR SAILBOAT LIES NORTH.":GOTO6950
6230 A$="[197]AST [194]EACH. [200]ARDENED LAVA FROM THE VOLCANO MEETS THE SEA TO THE EAST."
6233 B$=" [217]OU CAN CLIMB UP TO THE WEST.":GOTO6950
6240 A$="[215]ASHOUT. ":IFLI(30)=0THEN6245
6241 B$="[193] STREAM FROM THE WEST EMPTIES INTO THE OCEAN.":GOTO6950
6245 B$="[212]HE GROUND HERE HAS BEEN ERODED AWAY. [193] DITCH LEADS WEST.":GOTO6950
6250 A$="[197]AST [211]HORE. [212]HE LAND RISES SHARPLY TO THE WEST.":GOTO6950
6260 A$="[211]OUTH BEACH. [212]HE LAND RISES TO THE NORTH.":GOTO6950
6270 A$="[211]OUTH SHORE. [201]T CONTINUES EAST AND WEST.":GOTO6950
6280 A$="[215]EST SHORE. [193] MOUNTAIN PEAK LIES NORTHEAST OF HERE.":GOTO6950
6290 A$="[215]EST BEACH. [212]O THE EAST IS VEGETATION. [211]OUTHEAST AND UP IS A JUNGLE."
6291 GOTO6950
6300 A$="[211]AILBOAT. [204]AND LIES SOUTH OF HERE.":GOTO6950
6950 IFLI(33)<>LPTHEN6960
6955 E$=" [193] VINE HANGS WITHIN REACH. ":IFTV=0THEN6960
6957 E$=E$+"[193] "+DI$(TV)+" IS TIED TO IT."
6960 GOSUB10000
6965 IFLP=100ANDFC=0THEN7000
6970 GOSUB10100
7000 IFTC<>10THEN7100
7005 A$="[193]N EARTHQUAKE SENDS SHIVERS DOWN YOUR SPINE. ":LI(6)=105
7010 IFLP=105THENB$="[212]HE MOUND OF LAVA CRACKS DURING THE CONVULSION."
7015 GOTO9995
7100 IFDC=.5ORTC-DC<>1THEN7200
7110 A$="*[203][193][194][207][207][205]* ":S=LI(44):IFS=6ANDLP<>105THENLI(30)=105:LI(29)=120
7115 IFS>1ANDS<100THENS=LI(S)
7120 IFS=1ORS=LPTHENB$="[217]OU ARE BLOWN APART BY THE EXPLOSION.":LC=0:GOTO9995
7125 FORE=3TO79:IFLI(E)=SANDE<>16ANDE<>30THENLI(E)=.
7127 NEXT:B$="[217]OU ARE PELTED BY DEBRIS."
7133 IFLP=120THENC$=" [198]OLLOWED IMEDIATELY BY A RUSH OF WATER FROM THE WEST."
7135 GOTO9995
7200 IFDC=.5ORLI(30)=0THEN7300
7210 S=TC-DC:IFS<2ORS>6THEN7300
7215 A$="[212]HE WATER APPEARS TO BE LOWER."
7220 IFS=6THENLI(11)=104:LI(17)=104:A$=A$+" [207]N THE GROUND IS A CARVED STONE."
7223 IFLP<>104THENA$=""
7225 GOTO9995
7300 S=LI(7):IFLI(5)=114ORLI(5)=0THEN7400
7302 IFLP=112ANDS=1THENLI(7)=114:IC=IC-1:A$="[212]HE APE GRABS THE CHEST. ":GOTO7315
7305 IFLP=114THENA$="[217]OU NOTICE THROUGH THE HOLE "
7307 IFS=112THENS=5:GOTO7315
7310 ONTC-AC+1GOTO7360,7330,7335,7360
7315 LI(5)=114:IFLP=112THENB$="[212]HE APE AGILELY CLIMBS THE TREE.":GOTO9995
7317 IFLP<>114THEN9995
7318 A$="[212]HE APE EMERGES FROM THE HOLE. "
7320 IFS=1THENIC=IC-1:B$="[212]HE APE GRABS THE CHEST.":LI(7)=114
7323 IFS=5THENLI(7)=114:B$="[201]T SETS A CHEST DOWN ON THE FLOOR."
7325 GOTO9995
7330 IFLP=114THENB$="THE APE RUBBING ITS HEAD AND LOOKING UP AT YOU."
7333 GOTO9995
7335 IFLP=114THENB$="THE APE STAND AND BEGIN CLIMBING THE TREE."
7340 GOTO9995
7360 A$=""
7400 S=TC-VC:IFVC=0THEN9995
7403 IFS<16THEN7410
7405 LC=0:A$="[193] TREMENDOUS EXPLOSION, THEN A SHOWER OF LAVA, TURNS YOU INTO A "
7406 B$="SMOLDERING, BLOB OF MINERALS.":GOTO9995
7410 IFS<>1ANDS<>6ANDS<>11THEN9995
7415 A$="[210]UMBLING FROM THE VOLCANO INDICATES IT'S TIME TO SET SAIL."
9995 GOSUB10000
9997 IFLC=1THEN300
9998 PRINT"          [211][212][193][210][212][201][206][199][160][199][193][205][197] [207][214][197][210]":GOTO5025
10000 FORP=1TO5
10003 L=LEN(A$):IFL>39THEN10040
10005 ONPGOTO10010,10015,10020,10025,10055
10010 A$=A$+B$:GOTO10035
10015 A$=A$+C$:GOTO10035
10020 A$=A$+D$:GOTO10035
10025 A$=A$+E$
10035 NEXTP
10040 FORQ=39TO1STEP-1:IFMID$(A$,Q,1)<>" "THENNEXTQ
10045 PRINTLEFT$(A$,Q-1):A$=MID$(A$,Q+1):GOTO10003
10055 IFLEN(A$)>0THENPRINTA$
10060 A$="":B$="":C$="":D$="":E$="":RETURN
10100 S=LP:IFC1=103THENS=1
10105 FORP=3TO79:IFLI(P)<>STHEN10150
10107 T=TI(P):IFS=LPTHENIFT=0ORT=1ORP=33THEN10150
10110 IFS=LPTHENPRINT" HERE IS";
10115 PRINT" A "+DI$(P):T=FI(P):IFT<>2ANDT<>6ANDT<>14ORP=33THEN10150
10120 FORQ=8TO79:IFLI(Q)=PTHENPRINT"   A "+DI$(Q)+" IS WITHIN IT"
10125 NEXTQ
10150 NEXTP:RETURN
60000 OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER:CLOSE15
60010 IFER<>63THENEND
60020 LOAD"HELLO CONNECT",8
60100 POKE53280,2:POKE53281,3
60110 PRINT"[147][144][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";
60120 FORA=1TO23:PRINT"[221]"SPC(38)"[221]";:NEXT
60130 PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][157][148][192]"
60140 FORA=217TO242:POKEA,PEEK(A)OR128:NEXT
60150 PRINT"          [204][207][193][196][211][212][193][210] [208]RESENTS:"
60160 PRINT"                             "
60170 PRINT"          [211]HIVER [205]E [212]IMBERS  [154] "
60180 PRINT"                             [154] "
60190 PRINT"            BY [196]ANA [195]LAPP    [154] "
60200 PRINT"                             [154] "
60210 PRINT"          ([195])OPYRIGHT  1987  [154] "
60220 PRINT"                             [154] "
60230 PRINT"                              "
60240 PRINT"         [208]RESS [211][208][193][195][197] TO CONTINUE.":POKE198,.
60250 GETA$:IFA$<>" "THEN60250
60260 RETURN
60500 PRINT"--->[164]";:Z$="":POKE198,.:FORMM=1TO31
60510 GETMM$:IFMM$=""THEN60510
60520 IFMM$=CHR$(13)THEN60590
60530 IFMM$=CHR$(20)ANDMM>1THENPRINT"[157][157]  [157][157][164]";:MM=MM-1:Z$=LEFT$(Z$,MM-1):GOTO60510
60540 IFMM=31THEN60510
60550 IFMM$>=" "ANDMM$<="Z"THEN60580
60560 IFMM$>="[193]"ANDMM$<="[218]"THENMM$=CHR$(ASC(MM$)-128):GOTO60580
60570 GOTO60510
60580 PRINT"[157]"MM$;:POKE212,.:PRINT"[164]";:Z$=Z$+MM$:NEXT
60590 PRINT"[157] ":RETURN